home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03011_Script_3011 < prev    next >
Text File  |  1983-01-27  |  512b  |  15 lines
  1. on giu castart,spritecur
  2.   global ss,valore,lungh_barra,righe_scroll_testo
  3.   set righe_scroll_testo to the linecount of member "articolo" -10
  4.   if ss<righe_scroll_testo then
  5.     set the scrolltop of member castart to the scrolltop of member castart + valore
  6.     set ss to ss+1
  7.     set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
  8.   put "locv in giu " the locv of sprite spritecur ,lungh_barra,righe_scroll_testo,ss
  9.     
  10.     
  11.   else
  12.     beep
  13.     exit
  14.   end if
  15. end